data<-read.table("clinical_data_processed.txt",sep="\t",head=T)
expr<-read.table("GE.txt",sep="\t",head=T)
colnames<-colnames(expr)
colnames<-gsub("\\.","-",colnames)
rownames(data)<-data[,1]
data<-t(data[colnames[2:length(colnames)],])
rownames(data)
data<-cbind(rownames(data),data)
